VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Frm_UpData 
   Caption         =   "UpData"
   ClientHeight    =   2820
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5880
   OleObjectBlob   =   "Frm_UpData.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "Frm_UpData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AllButton_Click()
    
    'ini
    barLabel.Width = 0
    Me.BarProgress.Caption = "0%"
    Dim Request
    AllButton.Enabled = False
    ChoiceButton.Enabled = False
    'for state file
    Request = MsgBox("Do you want to updata all states files?", vbOKCancel + vbQuestion, "UpData States?")
    If Request = vbOK Then
        StateFileCopy
    End If
    AllButton.Enabled = True
    ChoiceButton.Enabled = True
    
End Sub

Private Sub ChoiceButton_Click()
    
    AllButton.Enabled = False
    ChoiceButton.Enabled = False
    Me.barLabel.Width = 0
    Me.BarProgress.Caption = "0%"
    Load Frm_States
    Frm_States.Show
    AllButton.Enabled = True
    ChoiceButton.Enabled = True
    
End Sub

Public Sub UpBarProgress(ByVal percent As Double)

   BarProgress.Caption = Format(percent, "0%")
   barLabel.Width = percent * (BarProgress.Width)
   DoEvents
   
End Sub

